Changeset 5111 for branches/2015/dev_r5094_UKMO_ISFCLEAN/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90

Timestamp:

2015-03-02T16:30:57+01:00 (9 years ago)

Author:

mathiot

Message:

add some missing if ln_isfcav, test of option compatibility with ln_isfcav + small documentation

File:

• branches/2015/dev_r5094_UKMO_ISFCLEAN/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90 (modified) (2 diffs)

branches/2015/dev_r5094_UKMO_ISFCLEAN/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90

@@ -167 +167 @@
                            & the standard jacobian formulation hpg_sco or &
                            & the pressure jacobian formulation hpg_prj')
+
+      IF( ln_hpg_isf .AND. .NOT. ln_isfcav )   &
+           &   CALL ctl_stop( ' hpg_isf not available is ln_isfcav = false ' )
       !
       !                               ! Set nhpg from ln_hpg_... flags
@@ -187 +190 @@
       IF( ( .NOT. ln_hpg_isf ) .AND. ln_isfcav )   &
           &  CALL ctl_stop( 'Only hpg_isf has been corrected to work with ice shelf cavity.' )
+      ! 
+      ! initialisation of ice load
+      riceload(:,:)=0.0
       !
    END SUBROUTINE dyn_hpg_init