Ignore:
Timestamp:
2019-11-27T15:50:29+01:00 (10 months ago)
Author:
mathiot
Message:

ENHANCE-02_ISF_nemo: changes needed after Dave's review

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isfstp.F90

    r11931 r11987  
    1414   !!---------------------------------------------------------------------- 
    1515   ! 
    16    USE isf            ! isf variables 
     16   USE isf_oce                                      ! isf variables 
    1717   USE isfload, ONLY: isf_load                      ! ice shelf load 
    1818   USE isftbl , ONLY: isf_tbl_lvl                   ! ice shelf boundary layer 
     
    158158         !--------------------------------------------------------------------------------------------------------------------- 
    159159         ! initialisation ice sheet coupling 
    160          IF( ln_isfcpl ) CALL isfcpl_init() 
     160         IF ( ln_isfcpl ) CALL isfcpl_init() 
    161161         ! 
    162162      END IF 
     
    185185            WRITE(numout,*) '      melt inside the cavity                  ln_isfcav_mlt   = ', ln_isfcav_mlt 
    186186            IF ( ln_isfcav_mlt) THEN 
    187                WRITE(numout,*) '         melt formulation                        cn_isfcav_mlt   = ', TRIM(cn_isfcav_mlt) 
    188                WRITE(numout,*) '         thickness of the top boundary layer     rn_htbl     = ', rn_htbl 
    189                WRITE(numout,*) '         gamma formulation                       cn_gammablk = ', TRIM(cn_gammablk)  
     187               WRITE(numout,*) '         melt formulation                         cn_isfcav_mlt= ', TRIM(cn_isfcav_mlt) 
     188               WRITE(numout,*) '         thickness of the top boundary layer      rn_htbl      = ', rn_htbl 
     189               WRITE(numout,*) '         gamma formulation                        cn_gammablk = ', TRIM(cn_gammablk)  
    190190               IF ( TRIM(cn_gammablk) .NE. 'spe' ) THEN  
    191                   WRITE(numout,*) '         gammat coefficient                       rn_gammat0  = ', rn_gammat0   
    192                   WRITE(numout,*) '         gammas coefficient                       rn_gammas0  = ', rn_gammas0   
    193                   WRITE(numout,*) '         top drag coef.    used (from namdrg_top) rn_Cd0      = ', r_Cdmin_top 
    194                   WRITE(numout,*) '         top background ke used (from namdrg_top) rn_ke0      = ', r_ke0_top 
     191                  WRITE(numout,*) '         gammat coefficient                       rn_gammat0   = ', rn_gammat0   
     192                  WRITE(numout,*) '         gammas coefficient                       rn_gammas0   = ', rn_gammas0   
     193                  WRITE(numout,*) '         top background ke used (from namdrg_top) rn_ke0       = ', r_ke0_top 
     194                  WRITE(numout,*) '         top drag coef.    used (from namdrg_top) rn_Cd0       = ', r_Cdmin_top 
    195195               END IF 
    196196            END IF 
     
    222222         IF (ln_isfcav) WRITE(numout,*) '      Ice shelf load method                   cn_isfload        = ', TRIM(cn_isfload) 
    223223         WRITE(numout,*) '' 
     224         FLUSH(numout) 
    224225 
    225226      END IF 
     
    243244      IF ( l_isfoasis .AND. ln_isf ) THEN 
    244245         ! 
    245          CALL ctl_stop( ' OASIS and ice shelf not tested' ) 
     246         CALL ctl_stop( ' ln_ctl and ice shelf not tested' ) 
    246247         ! 
    247248         ! NEMO coupled to ATMO model with isf cavity need oasis method for melt computation  
Note: See TracChangeset for help on using the changeset viewer.