Ignore:
Timestamp:
Oct 3, 2023, 3:54:57 PM (22 months ago)
Author:
jbclement
Message:

Mars PCM:
Related to commit r3066, correction of a bug to write/read a restart/start in 1D and more adaptations of the code.
JBC

Location:
trunk/LMDZ.COMMON/libf/evolution
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.COMMON/libf/evolution/orbit_param_criterion_mod.F90

    r3050 r3069  
    7979close(73)
    8080if (last_ilask == 0 .or. last_ilask == size(yearlask,1) + 1) then
    81     write(*,*) 'The current year could not be found in the file "obl_ecc_lsp.asc".'
    82     stop
     81    error stop 'The current year could not be found in the file "obl_ecc_lsp.asc".'
    8382else
    8483    write(*,*) 'The current year in the "obl_ecc_lsp.asc" file is at line:', last_ilask

  • trunk/LMDZ.COMMON/libf/evolution/pem.F90

    r3068 r3069  
    11191119    write(*,*) "restart_evol.nc has been written"
    11201120#else
    1121     call writerestart1D('restart1D_evol.txt',ps(1),tsurf,nlayer,teta,ucov,vcov,nq,noms,qsurf,q)
     1121    call writerestart1D('restart1D_evol.txt',ps(1),tsurf(1,:),nlayer,size(tsurf,2),teta,ucov,vcov,nq,noms,qsurf(1,:,:),q)
    11221122    write(*,*) "restart1D_evol.txt has been written"
    11231123#endif

  • trunk/LMDZ.COMMON/libf/evolution/recomp_orb_param_mod.F90

    r3047 r3069  
    102102enddo
    103103
    104 if (.not. found_year) then
    105     write(*,*) 'The new year could not be found in the file "obl_ecc_lsp.asc".'
    106     stop
    107 endif
     104if (.not. found_year) error stop 'The new year could not be found in the file "obl_ecc_lsp.asc".'
    108105
    109106halfaxe = 227.94
Note: See TracChangeset for help on using the changeset viewer.