Changeset 374 for trunk/NEMO/OPA_SRC/DYN/dynspg_ts.F90

Timestamp:

2006-01-03T16:04:15+01:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_bugfix_015 : CT : - correct the initialization step

• update comments

File:

• trunk/NEMO/OPA_SRC/DYN/dynspg_ts.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/DYN/dynspg_ts.F90

@@ -115 +115 @@
          IF(lwp) WRITE(numout,*) ' Number of sub cycle in 1 time-step (2 rdt) : icycle = ', FLOOR( 2*rdt/rdtbt )
 
-         IF( ln_rstart ) THEN
+         IF( .NOT. ln_rstart ) THEN
             ! initialize barotropic specific arrays
             sshb_b(:,:) = sshb(:,:)
@@ -158 +158 @@
       z2dt_b = 2.0 * rdt                                    ! baroclinic time step
       IF ( neuler == 0 .AND. kt == nit000 ) z2dt_b = rdt
-      zfact1 = 0.5 * 0.25                                     ! coefficient for vorticity estimates
+      zfact1 = 0.5 * 0.25                                   ! coefficient for vorticity estimates
       zfact2 = 0.5 * 0.5
-      zraur  = 1. / rauw                                   ! 1 / volumic mass of pure water
+      zraur  = 1. / rauw                                    ! 1 / volumic mass of pure water
       
       ! -----------------------------------------------------------------------------