Update mod_assim.F

Author: SiqiLiOcean

src/mod_assim.F

@@ -3849,8 +3849,7 @@ SUBROUTINE OI_DA(VARNAME, VAR)
    REAL(SP) T_WEIGHT
 
    REAL(SP) t1, t2, t3, t4, t5, t6
-!-------->1
-!IF (MSR) call cpu_time(t1)
+
 !==============================================================================|
 
    IF (DBG_SET(DBG_SBR)) WRITE(IPT,*) "START: OI_TA" 
@@ -3873,9 +3872,6 @@ SUBROUTINE OI_DA(VARNAME, VAR)
      TG(1:MGL,1:KBM1) = VAR(1:MGL,1:KBM1)
    END IF
 
-!-------->2
-!IF (MSR) call cpu_time(t2)
-
 !------------------------------------------------------------------------------!
 !  Allocate variables
 !------------------------------------------------------------------------------!
@@ -3895,10 +3891,6 @@ SUBROUTINE OI_DA(VARNAME, VAR)
 !   SIMTIME          = TIME*86400
    SIMTIME = DTI*FLOAT(IINT)
 
-!-------->3
-
-!call cpu_time(t3)
-
    DO I=1,N_ASSIM_TS_w
 !------------------------------------------------------------------------------!
 !  Calculate Temporal Weight of Measurement (I) at Time(TIME)                  ! 
@@ -4036,8 +4028,7 @@ SUBROUTINE OI_DA(VARNAME, VAR)
    DEALLOCATE(VAROBS)
 
    END DO !I
-!-------->4
-!call cpu_time(t4) 
+
    END IF  !!MASTER 
 !------------------------------------------------------------------------------!
 !  'OI' Simulation Data Using Local Corrections                                ! 
@@ -4089,9 +4080,6 @@ SUBROUTINE OI_DA(VARNAME, VAR)
      DEALLOCATE(T_FLAG1)
      DEALLOCATE(T_FLAG2)
 
-!-------->5
-!if (MSR) call cpu_time(t5)
-
    IF (DBG_SET(DBG_SBR)) WRITE(IPT,*) "END: OI_TA" 
 
 !IF (MSR) write(1005,*) t2-t1, t3-t2, t4-t3, t5-t4