Changeset 8569 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icedyn_adv.F90

Timestamp:

2017-09-27T18:40:13+02:00 (7 years ago)

Author:

clem

Message:

Prather: allocate specific arrays only when prather is used

File:

• branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icedyn_adv.F90 (modified) (2 diffs)

branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icedyn_adv.F90

@@ -111 +111 @@
       IF( iom_use('destrp') )   CALL iom_put( "destrp" , diag_trp_es )          ! advected snw enthalpy (W/m2)
 
-      IF( lrst_ice ) THEN                       !* write Prather fields in the restart file
-         IF( ln_adv_Pra )   CALL adv_pra_rst( 'WRITE', kt )
-      ENDIF
-               
       ! controls
       IF( ln_icediachk   )   CALL ice_cons_hsm(1, 'icedyn_adv', rdiag_v, rdiag_s, rdiag_t, rdiag_fv, rdiag_fs, rdiag_ft) ! conservation
@@ -165 +161 @@
       IF( ioptio /= 1 )   CALL ctl_stop( 'ice_dyn_adv_init: choose one and only one ice adv. scheme (ln_adv_Pra or ln_adv_UMx)' )
       !
-      IF( ln_adv_Pra )   CALL adv_pra_rst( 'READ' )  !* read or initialize all required files
+      IF( ln_adv_Pra )   CALL adv_pra_init  !* read or initialize all required files
       !
    END SUBROUTINE ice_dyn_adv_init