Changeset 11539 for NEMO/branches

Timestamp:

2019-09-12T14:01:49+02:00 (5 years ago)

Author:

andmirek

Message:

enable more than 100000 processors for run

Location:

NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_decoupled/src/OCE

Files:

• ICB/icbrst.F90 (modified) (1 diff)
• ICB/icbtrj.F90 (modified) (1 diff)
• IOM/iom_nf90.F90 (modified) (1 diff)
• LBC/lib_mpp.F90 (modified) (1 diff)
• timing.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_decoupled/src/OCE/ICB/icbrst.F90

@@ -222 +222 @@
          ENDIF
          IF( lk_mpp ) THEN
-            WRITE(cl_filename,'(A,"_icebergs_",A,"_restart_",I4.4,".nc")') TRIM(cexper), TRIM(ADJUSTL(clkt)), narea-1
+            WRITE(cl_filename,'(A,"_icebergs_",A,"_restart_",I6.6,".nc")') TRIM(cexper), TRIM(ADJUSTL(clkt)), narea-1
          ELSE
             WRITE(cl_filename,'(A,"_icebergs_",A,"_restart.nc")') TRIM(cexper), TRIM(ADJUSTL(clkt))

NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_decoupled/src/OCE/ICB/icbtrj.F90

@@ -80 +80 @@
 
       ! define trajectory output name
-      IF ( lk_mpp ) THEN   ;   WRITE(cl_filename,'("trajectory_icebergs_",A,"-",A,"_",I4.4,".nc")')   &
+      IF ( lk_mpp ) THEN   ;   WRITE(cl_filename,'("trajectory_icebergs_",A,"-",A,"_",I6.6,".nc")')   &
          &                        TRIM(ADJUSTL(cldate_ini)), TRIM(ADJUSTL(cldate_end)), narea-1
       ELSE                 ;   WRITE(cl_filename,'("trajectory_icebergs_",A,"-",A         ,".nc")')   &

NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_decoupled/src/OCE/IOM/iom_nf90.F90

@@ -104 +104 @@
          IF( ldwrt ) THEN              !* the file should be open in write mode so we create it...
             IF( jpnij > 1 ) THEN
-               WRITE(cltmp,'(a,a,i4.4,a)') cdname(1:iln-1), '_', narea-1, '.nc'
+               WRITE(cltmp,'(a,a,i6.6,a)') cdname(1:iln-1), '_', narea-1, '.nc'
                cdname = TRIM(cltmp)
             ENDIF

NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_decoupled/src/OCE/LBC/lib_mpp.F90

@@ -1974 +1974 @@
       clfile = TRIM(cdfile)
       IF( PRESENT( karea ) ) THEN
-         IF( karea > 1 )   WRITE(clfile, "(a,'_',i4.4)") TRIM(clfile), karea-1
+         IF( karea > 1 )   WRITE(clfile, "(a,'_',i6.6)") TRIM(clfile), karea-1
       ENDIF
 #if defined key_agrif

NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_decoupled/src/OCE/timing.F90

@@ -667 +667 @@
          cllignes(2)='1x,"--------------------",//,'
          cllignes(3)='1x,"Process Rank |"," Elapsed Time (s) |"," CPU Time (s) |"," Ratio CPU/Elapsed",/,'
-         cllignes(4)='    (1x,i4,9x,"|",f12.3,6x,"|",f12.3,2x,"|",4x,f7.3,/),'
-         WRITE(cllignes(4)(1:4),'(I4)') jpnij
+         cllignes(4)='    (1x,i6,9x,"|",f12.3,6x,"|",f12.3,2x,"|",4x,f7.3,/),'
+         WRITE(cllignes(4)(1:4),'(I6)') jpnij
          cllignes(5)='1x,"Total        |",f12.3,6x,"|",F12.3,2x,"|",4x,f7.3,/,'
          cllignes(6)='1x,"Minimum      |",f12.3,6x,"|",F12.3,2x,"|",4x,f7.3,/,'