Changeset 3963 for branches/2013/dev_r3406_CNRS_LIM3/NEMOGCM/NEMO/LIM_SRC_3/limdiahsb.F90

Timestamp:

2013-07-09T17:41:20+02:00 (11 years ago)

Author:

clem

Message:

bugs correction + creation of glob_max and glob_min in lib_fortran.F90, see ticket:#1116

File:

• branches/2013/dev_r3406_CNRS_LIM3/NEMOGCM/NEMO/LIM_SRC_3/limdiahsb.F90 (modified) (1 diff)

branches/2013/dev_r3406_CNRS_LIM3/NEMOGCM/NEMO/LIM_SRC_3/limdiahsb.F90

@@ -127 +127 @@
       CALL iom_put( 'ibgfrcemp',frc_vol * 1.e-9 )           !vol - forcing : km3 (equivalent liquid)         
       CALL iom_put( 'ibgfrcemps',frc_sal * 1.e-9 )          !sal - forcing : psu*km3   
-      CALL iom_put( 'ibgemps',zbg_emps *86400)            
-      CALL iom_put( 'ibgemp',zbg_emp *86400)              
-      CALL iom_put( 'ibgfsbri',zbg_fsbri *86400)         
-      CALL iom_put( 'ibgfseqv',zbg_fseqv *86400)         
-      CALL iom_put( 'ibgfsaltres',zbg_fsalt_res *86400)         
-      CALL iom_put( 'ibgfsaltrpo',zbg_fsalt_rpo *86400)         
+      CALL iom_put( 'ibgemps',zbg_emps *86400.)            
+      CALL iom_put( 'ibgemp',zbg_emp *86400.)              
+      CALL iom_put( 'ibgfsbri',zbg_fsbri *86400.)         
+      CALL iom_put( 'ibgfseqv',zbg_fseqv *86400.)         
+      CALL iom_put( 'ibgfsaltres',zbg_fsalt_res *86400.)         
+      CALL iom_put( 'ibgfsaltrpo',zbg_fsalt_rpo *86400.)         
       CALL iom_put( 'ibggrpme',bg_grpme * rhoic / rau0 * 1.e-9 ) ! km3 (equivalent liquid)         
       !