Changeset 469 for branches/GRISLIv3/SOURCES/main3D-0.4-40km.f90

Timestamp:

01/26/24 17:34:15 (6 months ago)

Author:

aquiquet

Message:

Cleaning branch: old empty ritz files and unused file numbers removed

File:

• branches/GRISLIv3/SOURCES/main3D-0.4-40km.f90 (modified) (2 diffs)

branches/GRISLIv3/SOURCES/main3D-0.4-40km.f90

@@ -131 +131 @@
 subroutine grisli_init
 
-  USE module3D_phy, only: itemp,icouple,isynchro,icompteur,iglen,num_sealevel, &
-                          num_ts_ritz,num_ic_vo,num_ic_by,num_ic_dm,num_ic_dc,num_ic_df, &
+  USE module3D_phy, only: itemp,icouple,isynchro,icompteur,iglen, &
                           s,h,b,bsoc,flot,mk,mk0,uxbar,uybar,hwater,time,timemax,ndebug,ndebug_max
   use runparam, only: nt,tbegin,dtprofile,dtcpt,dirnameout,runname,itracebug
@@ -183 +182 @@
   DTCPT=dtout
 
-
-  !     ************ OPEN FILES.RITZ ****************
-
-  if ((geoplace.eq.'anteis1').or.(geoplace.eq.'ant20km')) then
-     ! fichier de reference pour le niveau des mers
-     open(num_sealevel,file=TRIM(DIRNAMEOUT)//'sealevel'//runname//'.ritz',position="append")
-     open(num_ts_ritz,file=TRIM(DIRNAMEOUT)//'ts_'//runname//'.ritz',position="append")
-     open(num_ic_vo,file=TRIM(DIRNAMEOUT)//'ic_'//runname//'vo.ritz',position="append")
-     open(num_ic_by,file=TRIM(DIRNAMEOUT)//'ic_'//runname//'by.ritz',position="append")
-     open(num_ic_dm,file=TRIM(DIRNAMEOUT)//'ic_'//runname//'dm.ritz',position="append")
-     open(num_ic_dc,file=TRIM(DIRNAMEOUT)//'ic_'//runname//'dc.ritz',position="append")
-     open(num_ic_df,file=TRIM(DIRNAMEOUT)//'ic_'//runname//'df.ritz',position="append")
-  endif
-
   !------------------------------ INITIALISATION ----------------------------
   !