Changeset 3244 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/PISCES

Timestamp:

2012-01-04T11:31:09+01:00 (13 years ago)

Author:

cetlod

Message:

dev_NEMO_MERGE_2011 : Minor reorganisation of initialisation phase of TOP ; needed to get calendar information before the use of fldread

Location:

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/PISCES

Files:

• trcini_pisces.F90 (modified) (1 diff)
• trcrst_pisces.F90 (modified) (1 diff)

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/PISCES/trcini_pisces.F90

@@ -169 +169 @@
       ndayflxtr = 0
 
+      IF(lwp) WRITE(numout,*) 
       IF(lwp) WRITE(numout,*) 'Initialization of PISCES tracers done'
-      IF(lwp) WRITE(numout,*) ' '
+      IF(lwp) WRITE(numout,*) 
       !
    END SUBROUTINE trc_ini_pisces

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/PISCES/trcrst_pisces.F90

@@ -52 +52 @@
          CALL iom_get( knum, jpdom_autoglo, 'PH' , hi(:,:,:)  )
       ELSE
-         hi(:,:,:) = 1.e-9 
+!         hi(:,:,:) = 1.e-9 
          ! Set PH from  total alkalinity, borat (???), akb3 (???) and ak23 (???)
          ! --------------------------------------------------------