New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 5051 for branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/limwri.F90 – NEMO

Ignore:
Timestamp:
2015-02-02T18:31:34+01:00 (9 years ago)
Author:
clem
Message:

LIM3 initialization is now called at the same time as other sbc fields

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/limwri.F90

    r5048 r5051  
    212212      CALL iom_put( "vfxspr"     , wfx_spr * ztmp       )        ! precip (snow) 
    213213       
    214       CALL iom_put( "afxtot"     , afx_tot              )        ! concentration tendency (total) 
    215       CALL iom_put( "afxdyn"     , afx_dyn              )        ! concentration tendency (dynamics) 
    216       CALL iom_put( "afxthd"     , afx_thd              )        ! concentration tendency (thermo) 
    217  
    218       CALL iom_put ('hfxthd', hfx_thd(:,:) )   !   
    219       CALL iom_put ('hfxdyn', hfx_dyn(:,:) )   !   
    220       CALL iom_put ('hfxres', hfx_res(:,:) )   !   
    221       CALL iom_put ('hfxout', hfx_out(:,:) )   !   
    222       CALL iom_put ('hfxin' , hfx_in(:,:) )    !   
    223       CALL iom_put ('hfxsnw', hfx_snw(:,:) )   !   
    224       CALL iom_put ('hfxsub', hfx_sub(:,:) )   !   
    225       CALL iom_put ('hfxerr', hfx_err(:,:) )   !   
    226       CALL iom_put ('hfxerr_rem', hfx_err_rem(:,:) )   !   
    227        
    228       CALL iom_put ('hfxsum', hfx_sum(:,:) )   !   
    229       CALL iom_put ('hfxbom', hfx_bom(:,:) )   !   
    230       CALL iom_put ('hfxbog', hfx_bog(:,:) )   !   
    231       CALL iom_put ('hfxdif', hfx_dif(:,:) )   !   
    232       CALL iom_put ('hfxopw', hfx_opw(:,:) )   !   
    233       CALL iom_put ('hfxtur', fhtur(:,:) * at_i(:,:) )  ! turbulent heat flux at ice base  
    234       CALL iom_put ('hfxdhc', diag_heat_dhc(:,:) )          ! Heat content variation in snow and ice  
    235       CALL iom_put ('hfxspr', hfx_spr(:,:) )          ! Heat content of snow precip  
     214      CALL iom_put( "afxtot"     , afx_tot * rday       )        ! concentration tendency (total) 
     215      CALL iom_put( "afxdyn"     , afx_dyn * rday       )        ! concentration tendency (dynamics) 
     216      CALL iom_put( "afxthd"     , afx_thd * rday       )        ! concentration tendency (thermo) 
     217 
     218      CALL iom_put ('hfxthd'     , hfx_thd(:,:)        )   !   
     219      CALL iom_put ('hfxdyn'     , hfx_dyn(:,:)        )   !   
     220      CALL iom_put ('hfxres'     , hfx_res(:,:)        )   !   
     221      CALL iom_put ('hfxout'     , hfx_out(:,:)        )   !   
     222      CALL iom_put ('hfxin'      , hfx_in(:,:)          )    !   
     223      CALL iom_put ('hfxsnw'     , hfx_snw(:,:)        )   !   
     224      CALL iom_put ('hfxsub'     , hfx_sub(:,:)        )   !   
     225      CALL iom_put ('hfxerr'     , hfx_err(:,:)        )   !   
     226      CALL iom_put ('hfxerr_rem' , hfx_err_rem(:,:)    )   !   
     227       
     228      CALL iom_put ('hfxsum'     , hfx_sum(:,:)        )   !   
     229      CALL iom_put ('hfxbom'     , hfx_bom(:,:)        )   !   
     230      CALL iom_put ('hfxbog'     , hfx_bog(:,:)        )   !   
     231      CALL iom_put ('hfxdif'     , hfx_dif(:,:)        )   !   
     232      CALL iom_put ('hfxopw'     , hfx_opw(:,:)        )   !   
     233      CALL iom_put ('hfxtur'     , fhtur(:,:) * at_i(:,:) ) ! turbulent heat flux at ice base  
     234      CALL iom_put ('hfxdhc'     , diag_heat_dhc(:,:)   )   ! Heat content variation in snow and ice  
     235      CALL iom_put ('hfxspr'     , hfx_spr(:,:)         )   ! Heat content of snow precip  
    236236       
    237237      !-------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.