Ignore:
Timestamp:
2017-09-08T17:09:25+02:00 (3 years ago)
Author:
clem
Message:

changes in style - part5 - almost done

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icedia.F90

    r8512 r8514  
    164164      INTEGER            ::   ios, ierror   ! local integer 
    165165      !! 
    166       NAMELIST/namice_dia/ ln_limdiachk, ln_limdiahsb, ln_limctl, iiceprt, jiceprt   
     166      NAMELIST/namice_dia/ ln_icediachk, ln_icediahsb, ln_icectl, iiceprt, jiceprt   
    167167      !!---------------------------------------------------------------------- 
    168168      ! 
     
    181181         WRITE(numout,*) ' ~~~~~~~~~~~' 
    182182         WRITE(numout,*) '   Namelist namice_dia : ' 
    183          WRITE(numout,*) '      Diagnose online heat/mass/salt budget      ln_limdiachk = ', ln_limdiachk 
    184          WRITE(numout,*) '      Output          heat/mass/salt budget      ln_limdiahsb = ', ln_limdiahsb 
    185          WRITE(numout,*) '      control prints for a given grid point         ln_limctl = ', ln_limctl 
     183         WRITE(numout,*) '      Diagnose online heat/mass/salt budget      ln_icediachk = ', ln_icediachk 
     184         WRITE(numout,*) '      Output          heat/mass/salt budget      ln_icediahsb = ', ln_icediahsb 
     185         WRITE(numout,*) '      control prints for a given grid point         ln_icectl = ', ln_icectl 
    186186         WRITE(numout,*) '         chosen grid point position         (iiceprt,jiceprt) = (', iiceprt,',', jiceprt,')' 
    187187      ENDIF 
    188188      !       
    189       IF( ln_limdiahsb ) THEN 
     189      IF( ln_icediahsb ) THEN 
    190190         ALLOCATE( vol_loc_ini(jpi,jpj), sal_loc_ini(jpi,jpj), tem_loc_ini(jpi,jpj), STAT=ierror ) 
    191191         IF( ierror > 0 )  THEN 
     
    202202   SUBROUTINE ice_dia_rst( cdrw, kt ) 
    203203      !!--------------------------------------------------------------------- 
    204       !!                   ***  ROUTINE limdia_rst  *** 
     204      !!                   ***  ROUTINE icedia_rst  *** 
    205205      !!                      
    206206      !! ** Purpose :   Read or write DIA file in restart file 
Note: See TracChangeset for help on using the changeset viewer.